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Ihe FORTRAN IV co&^ller for the SDS 910*920*930*940 uses a set of data 
structure coaveutlous together with luterpretlve operations for sotns of the 
data loaalpulatioas* According to the coaventioos^ there are a fixed set of 
25 lists nuohered 0 * 24. They serve various purposes; one is a symbol table 
for fixed point scaler identifiers, others for floating, array, and duon^ vari* 
able id^tlfiers* One bolds the stack of exits for recursive calXse One holds 
generated pieces of machine code awaiting arearrangement. One, the work list, 
plays a special role as a pu^*down aceisnulatoro 

Bach list occupies a contiguous block of storage» (See Figurel) 
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Figure 1 

The list is a push^down list of tables, each of ’sdilch can be used both as a last» 
in«>fir8t«out and as a first-in-first-out stack. For the list numbfired L, there 
are four pointers to its block of storage, 

th 

(1) BASS^ points to the word before the list. Thus the i word 
of the list is in location BASE^’f i. 





(2) STARI^ points to the last word of the pu^ied-dowa tables, 
the word before the region available to the current table. 

(3) 'fOP^ points to the word before the current table. 

(4) BOTTOM^ points to the last word of the current table. 

(5) BASE^^^ serves as a limit on Llst^^. It is the word before 
the region allocated to the next list, lie must therefore 
always have BASEj^jg STARl^^ 


He now describe some of those interpretive operations (POPs; programmed 
operators) ihlch use only the current table of a list. We use M as the effect 
tlve memory address of an instruction, after indirect addressing and Indexing, 
and m or ^M] as the contents of that address. We shall designate the work list 
by W. 

(1) PET M (Fetch a). BOXTOMjj + 1, [BOXTOMj^] <-m. 

Ihls stacks ra on the bottom of the work list. 


( 2 ) 

(3) 


ADR M (Address M). Stack H on the bottom of the work list. 


SOB M (Save on bottom of H)« Stack the contents of the hard* 
ware accumalator on the bottom of Llst^. 


(4) 


MON M (Move onto M). Unstack the bottom word of the work list 
and stack It as the bottom word of Llst^. 


(5) MOF M (Move off H). Unstack the bottom word of Llst^, and 
stack it on the bottom of the work list. 


(6) CLA* BOTTOM 1« (A hardware Instruction). Bring to the hard¬ 
ware accumulator the word from the bottom of Llst^^. The aster¬ 


isk signifies Indirect addressing 



(7) SOT M (Take off top of H)» Unatack the top word of tdie cur¬ 

rent table of Z«lst^» and save it on the bottom of the vorfc 
list* ii BOTTOM^ 1; [BOIIQM^MTOP^^]. 

(8) 8KR BOTTOM 4* L O- hardware Instruction). Unstack the bottom 
word of List^. BOTTOMj^ 4-BOrEOMj^ - 1. 

(9) Hllf VSf •¥ h (A hardware Instruction) • Unstack the top word 
of the current table of l»lst|^. TOF^^-TOP^^* 1. 

(10) LCPM (Load iJentral from H). Load words CTL1 and CTL2 with 
the two words f7.’oni the top of the current table of Llst^. 

(11) LOOM vLoad Central off M). Same as XX!F» esccept fdiat the 
tvo words are sinstacked from Llst^. 

(12) ICOM (Move Central onto M). Stack the two words CTL1 
and CTL2 on the bottom of Llst^. 

Observe that words sve added to a list at the bottomy but may be taken off 
at the bottom (last-ln«first-out; a stack) or the top (flrst-ln-flrst-out; a 
^ueue). All operations 'iilch add words to a list use the SOB operation^ ^ich 
checks idiether tlie allocated space is full (BOnXWj,- If so calls 

on a storage allocator to move the lists and change the pointers. 

It is possible to r.reate a new current table on a list without harm to 
the previous current table T^g ^ich will again become the current table ^en 
Is released. This f.s done by means of two operations; 

(1) RSV H (Reserve M). Stack START^- BASB^ and TOP^- BASE^ on the 
current table of Llst^g then STARl^rf^BOTTO^g T0P^4-BOTTIB^g 
creating a new(empty)current table on Llst^. 

Thus If the previous appearance of as ^own 


In Figure 2 
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Figure 3 


and possible 

After several uses of and TOT M»^faeiBory reallocations 
eblch iisve the entire list without changing Its coatents^ we 
might have, tdiere r Is a relocation constant, the situation 
of Figure 4. 



(2) BLS H (Release H) . 

BOTTCM^<- STARl^- 2, 

[START^] 4- BASE^, 

STARli^^CSXARl^. 

We now have BOTIOS^ s r •f 6» 

TOP^e r +Y» SXAR3^ « JT 4* 

BASR^ R r 4'o» so that the original status of the list with 

'sr— 

as the current table has been restoredo 

Because lists are constantly subject to relocation^ it is not useful to 
save absolute addresses of words stored on lists. Instead, one stores a pointer; 
a word one of ;whose fields is the number of the list, the other beic^ the loca«> 
tion of the word relative to the base of Che list. 



'BOB M (Bottom pointer of M) Mves on the work list « pointer to the 
bottom vord on list 


CUT M (Coont M) saves on the «oi^ list the siae of the current table 
on 


SAL M (Save a list M) saves on the save list SZARS^ • 
T0P^ ** ^ BOXICM^ • BASE^. 


BSC M (Recover M) is inverse to SAL, and restores SXABS^^ 
BOTZQI^ to their earlier values* 


IXXP^, and 


of item 

Bach list has a standard .?%e (one to five vords) stored on it. For exao^le 

A 

a list of floating point constants might have two as Its standard Itesi leogtbo 
In addition, lists such as syiidH>l tables have Items vhich begin with a one or 
tiKMord key, the synhol itself, followed by other information. 


SBR M (Search M). Search the list M for an item idiich has key equal 
to C1L2, or equal to the two«*iford pair (ClLl, C13.2), depending on ihat 
the key^length of M is. Save on the work list the pointer to the 
matching item. 


Control Structures 

Ihe program is organised as a set of rcKsursive subroutines. Exits are saved 
on one of (he lists, the exit list. Ihe programmed operators are implemented 
by recursive subroutines so that they can use themselves and each other. Apart 
from those subroutines accessed by the prc^raoned operators, a recursive 5ub«^ 
routine may be reached by 

<JRS H (Jump to recursive subroutine M)» 


At each level of subroutine mstir45 an answer bit is kept, and used to 



record the reeulte of teste 


JAT M (Joiap^ if eaaifer is true, to M) 

JAF M (Junp, if answer Is faXse, to M) 

Ksny of the operators described earlier set the answer true or false. For exacuple, 

the pro g r anm ed operators which reiaove items from lists set the maswer false if the 

source list is empty. The search instruction sets the answer false if no match 
is found. Ve also bavet 

eSA M (Character scan or alternative). 

If the next input character equals a, scan over it and set the answer 
true; otherwise do not scan, set the answer false. 

SMK H (Set noa«eapty). Set the answer true if the current table of 
Ust^ is noiMsopty, otherwise false. 

SOC M (Set on character). Set the enswar true if the next input 

character has, in its entry in a certain table, a flag bit set in the 

same position as the bit set in Ihis instructithi can be used, for 
example, to ask **l8 the next ehara^'ster tia alphaniaaeric?*'. 

SOF M (Set on flag M). Same as SOC, but testing the bottom word on 
the work list, rather than the ner/; input character. 

SOX* M (Set out of limit). Set tha answer true if absolute value 

of the double precision hardware accumulator is not b'^eater than the 
double precision llstit H. 


In order to do backtracking, there are the followings 



TRY M. Batar tha racuralva sulirootliie M« If it Is left nomally^ 
by a transfer to BBIX^ control returns to the Instruction following 
the TRY with the answer set to 1!EUB« If an exit occurs by a trans-* 
far to FiHL, control returns with the answer set to FALSE, and with 
the list pointers reset to their values at the time TRY was executed, 

FBX M (Fall exit M), After execution of this Instruction, a transfer 
to FAIL will cause control to go to H, with lists restored to their 
state when FBX was executed, 

CSF M (Character scan or fall). If the next Input character Is M, scan 
It; otherwise go to FAIL, 

QSF M (Quote scan or fall). Scan on the Input string the string 
stored at M, or go to FAIL, 



